<script>on mouseUpput the optionKey into optkeyset cursor to busyhide fld id 16hide fld id 17hide fld id 18hide fld id 19hide fld id 20hide bg btn id 23hide bg btn id 24hide bg btn id 25hide bg btn id 26hide bg btn id 27lock screenshow bg btn id 29if optkey = "down" thenanswer "Operation cancelled at user's request"put empty into fld "susnums" of cd "DupeTemp1"end ifclick at loc of bg btn id 29end mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>46</top>
<right>498</right>
<bottom>98</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete entry</name>
<script>on mouseUpglobal repnum, isdelset cursor to 4put empty into isdelget word 2 of line repnum of fld susnums of cd "DupeTemp1"go cd id itclick at the loc of bg btn id 16go cd "DupeTemp2"if isdel = "YES" thenhide fld id 16hide bg btn id 23put empty into isdelunlock screenif visible of bg btn id 24 is false¬and visible of bg btn id 25 is false¬and visible of bg btn id 26 is false¬and visible of bg btn id 27 is false¬then click at the loc of bg btn id 22end ifend mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>119</top>
<right>498</right>
<bottom>171</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete entry</name>
<script>on mouseUpglobal temp1, temp2, repnum, isdelput empty into isdelset cursor to 4get word 3 of line repnum of fld susnums of cd "DupeTemp1"go cd id itclick at the loc of bg btn id 16go cd "DupeTemp2"if isdel = "YES" thenhide fld id 17hide bg btn id 24put empty into isdelunlock screenif visible of bg btn id 23 is false¬and visible of bg btn id 25 is false¬and visible of bg btn id 26 is false¬and visible of bg btn id 27 is false¬then click at the loc of bg btn id 22end ifend mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>196</top>
<right>498</right>
<bottom>248</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete entry</name>
<script>on mouseUpglobal temp1, temp2, repnum, isdelput empty into isdelset cursor to 4get word 4 of line repnum of fld susnums of cd "DupeTemp1"go cd id itclick at the loc of bg btn id 16go cd "DupeTemp2"if isdel = "YES" thenhide fld id 18hide bg btn id 25put empty into isdelunlock screenif visible of bg btn id 23 is false¬and visible of bg btn id 24 is false¬and visible of bg btn id 26 is false¬and visible of bg btn id 27 is false¬then click at the loc of bg btn id 22end ifend mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>271</top>
<right>498</right>
<bottom>323</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete entry</name>
<script>on mouseUpglobal temp1, temp2, repnum, isdelput empty into isdelset cursor to 4get word 5 of line repnum of fld susnums of cd "DupeTemp1"go cd id itclick at the loc of bg btn id 16go cd "DupeTemp2"if isdel = "YES" thenhide fld id 19hide bg btn id 26put empty into isdelunlock screenif visible of bg btn id 23 is false¬and visible of bg btn id 24 is false¬and visible of bg btn id 25 is false¬and visible of bg btn id 27 is false¬then click at the loc of bg btn id 22end ifend mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>343</top>
<right>498</right>
<bottom>395</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete entry</name>
<script>on mouseUpglobal temp1, temp2, repnum, isdelput empty into isdelset cursor to 4get word 6 of line repnum of fld susnums of cd "DupeTemp1"go cd id itclick at the loc of bg btn id 16go cd "DupeTemp2"if isdel = "YES" thenhide fld id 20hide bg btn id 27put empty into isdelunlock screenif visible of bg btn id 23 is false¬and visible of bg btn id 24 is false¬and visible of bg btn id 25 is false¬and visible of bg btn id 26 is false¬then click at the loc of bg btn id 22end ifend mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>404</top>
<right>100</right>
<bottom>428</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>(Continue)</name>
<script>on mouseUpglobal repnum, userlevelhide bg btn id 29add 1 to repnum --GO GET INFO ON DUPLICATES FOR INSPECTIONif line repnum of fld susnums of cd "DupeTemp1" is not empty then--REPEAT FOR ALL SETS OF DUPLICATESset cursor to busyput "Preparing suspected duplicate entries for inspection..."put 16 into fnumput 23 into bnumput word 1 of line repnum of fld susnums of cd "DupeTemp1" into numentadd 1 to numentput 1 into entnumrepeat for 5 --PREPARE FIRST FIVE SUSPECTED DUPES FOR VIEWINGset cursor to busyif entnum = nument then exit repeatadd 1 to entnumput word entnum of line repnum of fld susnums of cd "DupeTemp1" into cidput (fld Rnum of cd id cid) & return into reftxt --GET ENTRYput 1 into iput line i of fld Author of cd id cid after reftxtadd 1 to iset cursor to busyrepeat until line i of fld Author of cd id cid is emptyput ", " & line i of fld Author of cd id cid after reftxtadd 1 to iend repeatset cursor to busyif fld Date of cd id cid is not empty then put " " & fld Date of cd id cid after reftxtif fld Title of cd id cid is not empty then put ". " & fld Title of cd id cid after reftxtif fld "Source" of cd id cid is not empty then put ". " & fld "Source" of cd id cid after reftxtif fld "Volume" of cd id cid is not empty then put " " & fld "Volume" of cd id cid after reftxtif fld "Pages" of cd id cid is not empty then put ":" & fld "Pages" of cd id cid after reftxtput "." after reftxtset cursor to busy --PUT INFO ON PROGRAM CARD FOR PERUSALshow fld id fnumput reftxt into fld id fnumshow bg btn id bnumadd 1 to fnumadd 1 to bnumend repeatrepeat until fnum >= 20 -- HIDE ANY EXTRA FIELDSset cursor to busyhide fld id fnumadd 1 to fnumend repeatunlock screen with zoom openhide messageelseput "Finishing up housekeeping..."set cursor to busyput empty into fld "susnums" of cd "DupeTemp1"go first cd of bg "Data Card bkgnd"unlock screensortCardsend ifend mouseUp</script>